Exercise 2

A centered still figure

A 2-column slide

A looping gif with executed, but not displayed r-code

r-code, displayed but not executed

library(magick)
gif <- image_read("wink.gif")
image_animate(gif, loop = 10)

An interactive plot

library(plotly)
library(gapminder)
library(ggplot2)

p <- gapminder %>%
  filter(year==1987 & continent == "Asia") %>%
  ggplot( aes(gdpPercap, lifeExp, size = pop, color=country)) +
  geom_point() +
  labs(x = "GDP per capita", y = "Life expectation") + 
  theme_bw()

ggplotly(p)

r-code, cached and labeled

gapminder %>%
  filter(year == 1987) %>%
  ggplot( aes(gdpPercap, lifeExp, col = continent)) +
  geom_point() +
  labs(x = "GDP per capita", y = "Life expectation") + 
  theme_bw()

An interactive table

library(DT)
gapminder %>% 
  datatable(options = list(pageLength = 10))

An aligned multi-row equation

The spike-and-slab prior (Mitchell and Beauchamp 1988; George and McCulloch 1993) falls into the category of discrete mixture priors. Such a prior can often be written as a mixture of two normal distributions (Piironen, Paasiniemi, and Vehtari 2020): \[ \begin{aligned} \beta_j \mid \lambda_j, c, \varepsilon &\sim \lambda_j \text{N}(0, c^2) + (1 - \lambda_j) \text{N}(0, \varepsilon^2), \nonumber \\ \lambda_j \mid \pi &\sim \text{Bernoulli}(\pi), \quad j = 1, \dots, p. \end{aligned} \]

An renv reproducible enviroment

library(renv)
renv::snapshot()

- The lockfile is already up to date.